home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacFormat España 14
/
MacFormat n. 14 (Spain)
/
MacFormat 14.bin
/
Shareware Internet
/
HyperCard
/
XCMD Docs
/
CompileIt! Source Code
/
MakeBarXCMD r,c
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-08-20
|
336 b
|
16 lines
global rr:R
global temp:R
on MakeBarXCMD r,c
put item 1 of r into h1
put item 2 of r into v1
put item 3 of r into h2
put item 4 of r into v2 -- convert text to numbers
getPenState temp
put thePort@.fgColor into temp2
ForeColor c
setRect rr,h1,v1,h2,v2
PaintRect rr
ForeColor temp2
setPenState temp
end MakeBarXCMD